Sub muestra_Do_While()
    Dim a As Integer
    a = 5
    Do
        Debug.Print "a = " & a
        a = a - 1
    Loop While a > 0
End Sub
